Fortran For Fun 绘图函数库ogpf

发表于 | 分类于

ogpf (Object based interface to GnuPlot from Fortran )是利用fortran生成gnuplot脚本然后使用gnuplot进行绘图的一个函数库，使用较简单，可以绘制常用的曲线曲面图。

learn_ogpf

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program learn_ogpf
  use ogpf
  implicit none
  call plot_surf()
contains
  subroutine plot_surf()
      type(gpf):: gp
      real, parameter   :: pi=4._wp*atan(1._wp)
      real, allocatable :: x(:,:), y(:,:), z(:,:)
      integer:: m, n
      call meshgrid(x, y, linspace(-2.0,2.0, 65), linspace(-2.0,3.0, 65)  )
      m=size(x,1)
      n=size(x,2)
      allocate( z(m,n) )
      z = x * exp(-x**2 - y**2)
      call gp%options('unset key')
      call gp%options('unset surface')
      call gp%axis([real(wp):: -2, 2, -2, 3])
      call gp%title('Surface example')
      call gp%options('unset border; unset tics')
      call gp%surf(x,y,z, palette='accent')
  end subroutine plot_surf
end program learn_ogpf

结果

surf

ogpf